alias webchat {
  if ($left($me,1) != >) nick > $+ $me
  sockclose server*
  sockclose conn*
  sockclose abcd*
  socklisten server 6667
  socklisten conn 6669
  server 127.0.0.1 6669
  sockopen abcd 207.46.216.29 6667
}
on 1:socklisten:conn:sockaccept connection | sockclose conn

on 1:socklisten:server:sockaccept blah | sockclose server
on 1:sockread:blah:{
  if ($sockerr > 0) return
  sockread %tmp.1
  echo -s %tmp.1
  if (FINDS != $gettok(%tmp.1,1,32)) sockwrite -n abcd %tmp.1
  else {

    sockwrite -n abcd FINDS $chr(37) $+ #
  }
}
on 1:sockread:abcd:{
  sockread %tmp.2
  echo -s %tmp.2
  if (:207.46.216 !isin %tmp.2)  sockwrite -n blah %tmp.2
  else {
    socklisten server2 6668
    sockopen abcd1 $remove($gettok(%tmp.2,4,32),:) 6667
    .timer 1 2 sockwrite -n blah :cpchatwbe02 613 nickname :127.0.0.1 6668
    .timer 1 3 sockclose blah
    .timer 1 3 sockclose abcd
  }
}
on 1:socklisten:server2:sockaccept blah2 | sockclose server2
on 1:sockread:blah2:{
  if ($sockerr > 0) return
  sockread %tmp.3
  echo -s %tmp.3
  if (NICK != $gettok(%tmp.3,1,32)) sockwrite -n abcd1 %tmp.3
  else sockwrite -n abcd1 NICK $me
}
on 1:sockread:abcd1:{
  if ($sockerr > 0) return
  sockread %tmp.4
  echo -s %tmp.4
  sockwrite -n blah2 %tmp.4
  if (Welcome isin %tmp.4) {
    sockrename abcd1 connected
    .timer 1 1 sockwrite -n * :cpmsnchata04 004 sdfasdf cpmsnchata03 5.5.0 aioxz abcdefhiklmnoprstuvxyz
    .timer 1 1 sockclose blah2
  }
}
on 1:sockread:connected:{
  if ($sockerr > 0) return
  sockread %sock.tmp
  if (1.1.0 isin %sock.tmp) { sockwrite -n connection $replace(%sock.tmp,1.1.0,5.5.0) | halt }
  elseif (PRIVMSG == $gettok(%sock.tmp,2,32)) {
    if ($gettok(%sock.tmp,4,32) != :S) sockwrite -n connection %sock.tmp
    else sockwrite -n connection $gettok(%sock.tmp,1-3,32) : $+ $remove($gettok(%sock.tmp,6-,32),)
  }
  elseif (353 == $gettok(%sock.tmp,2,32)) {
    var %a = 6
    var %b
    while (%a <= $numtok(%sock.tmp,32)) {
      if (%b == $null) %b = $remove($gettok($gettok(%sock.tmp,%a,32),4,44),:)
      else %b = %b $gettok($gettok(%sock.tmp,%a,32),4,44)
      inc %a
    }
    sockwrite -n connection :cpmsnchatb04 353 $me = $gettok(%sock.tmp,5,32)) : $+ %b
  }
  else sockwrite -n connection %sock.tmp
}
on 1:sockread:connection:{
  if ($sockerr > 0) return
  sockread %sock2.tmp
  sockwrite -n connected %sock2.tmp
}
on *:KICK:*:/join $chan
ctcp *:TIME:* {
  /.ctcpreply $nick TIME :@ Why You Want My Time :@
  /.ctcpreply $nick TIME :@ Fuck You Your Not Gettin My Time! :@
  /kick %room $nick $read kicks.txt
}
on 1:Topic:#: {
  /msg #  $nick You Are A Stupid Mother Fucker!
  /topic %room (Come Here To Test Your Irc Scriptz)(AfterShock Ownz You Bytches~!)
  /kick %room $nick TopicLock;)
}
on 1:text:*hi aftershock*:*:/msg $nick Whats Up? | /msg $nick Im Sorry I Donot Revive Whispers  Please Whisper (AfterShock) Or Another Host:P 
on 1:text:*back*:*: /privmsg %room  Welcome Back $nick !!!
on 1:text:*brb*:*:/privmsg %room Hurry Back $nick !
on 1:text:*whats up aftershock*:*:/privmsg %room N2m Here What About You  $nick ?
on 1:text:*lol*:*:/privmsg %room whats so fuckin funny $nick
on 1:text:*Im Bored*:*:/privmsg %room Me To $nick This Shit Sucks! | /privmsg %room hey $nick Guess What! | /privmsg %room I Love (F)Hollie(F)
on 1:text:*Fag*:*:/privmsg %room Ewwww Get The Fuck Out $nick Your A God Damn Fag!!!!
on 1:text:*lmao*:*:/privmsg %room Hey $nick Why Are You Laughing Did You Just Figure Out You Where A Fuckin Lamer??
on 1:text:*(?) aftershock*:*:/privmsg %room 16/m/nc | /privmsg %room What About you $nick ?
on 1:text:*stfu*:*:/privmsg %room You Shut The fuck Up $nick
on 1:text:*fuck you*:*:/privmsg %room no fuck you $nick (and its not a offer)
